home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (PO) / Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).zip / Nibble Volume 10, No. 08 (1989-08)(MindCraft Publishing)(Side A).po / PFX.DEMO.bas < prev    next >
BASIC Source File  |  1996-12-24  |  2KB  |  45 lines
  1. 10  REM  *************************
  2. 20  REM  * PFX.DEMO              *
  3. 30  REM  * BY WILLIAM H. TUDOR   *
  4. 40  REM  * COPYRIGHT(C) 1989     *
  5. 50  REM  * MICROSPARC, INC.      *
  6. 60  REM  * CONCORD, MA 01742     *
  7. 70  REM  *************************
  8. 80 D$ =  CHR$(4)
  9. 90  ONERR  GOTO 340
  10. 100  PRINT D$;"BRUN PFX": REM             -Install Command  
  11. 110  HOME 
  12. 120  PRINT "PFX demo by William H. Tudor"
  13. 130  PRINT "Copyright(c) 1989 MicroSPARC, Inc."
  14. 140  PRINT "----------------------------------------"
  15. 150  PRINT "     Arrows  - Change selection"
  16. 160  PRINT "     \ or <  - Move back (pop) a level"
  17. 170  PRINT "     / or >  - Append a level"
  18. 180  PRINT "     Rtn     - Accept prefix"
  19. 190  PRINT "     Esc     - Cancel selection"
  20. 200  PRINT "     Cntrl-X - Clear selection"
  21. 210  VTAB 22: PRINT "---------------------------------------"
  22. 220  PRINT D$;"PFX": REM  - Execute PFX command
  23. 230  VTAB 10: PRINT : CALL  -958
  24. 240  PRINT D$;"PREFIX": INPUT PF$
  25. 250  PRINT "You selected:";PF$
  26. 260  PRINT 
  27. 270  PRINT "PRESS RETURN TO CONTINUE";: INVERSE : PRINT " ";: NORMAL : POKE  -16368,0
  28. 280 X =  PEEK( -16384): IF X <128  THEN 280
  29. 290  IF X < >155  THEN 110
  30. 300  HOME : END 
  31. 310  REM ==================
  32. 320  REM   Error Handler:
  33. 330  REM ==================
  34. 340 EC =  PEEK(222): REM -Error code
  35. 350 EL =  PEEK(219) *256 + PEEK(218): REM -Error line
  36. 360  HOME 
  37. 370  PRINT "Error occurred!"
  38. 380  IF EL = 80  THEN 410
  39. 390  IF EC = 6  THEN 430
  40. 400  RESUME 
  41. 410  PRINT "Cannot find the file:PFX.BIN"
  42. 420  END 
  43. 430  PRINT "Prefix path not found."
  44. 440  CALL  -3288
  45. 450  END